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COPYRIGHT | (cd 1978, 1980, 1982, 1984 B 
DIGIT TAL PENT CORPORATION, MAYNARD. MASSACHUSETTS. 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND cores 
IN a Stor eke WITH THE TERMS OF SUCH LICENSE AND WITH Ue, 


OF TWARE 
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Add new parameter and root directory field 


v03-002 gorcogt d. Sopke 20 Jul H 1983 
Access LENGTH and POINTE fields of file spec ication string 
descriptor separately as WORD and LONGWORD fields respectively. 
This routine pqounes that the aerekae ts not a varying Length 
etrtng tye which points to a current length count followed by 


the A text characters. 
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38 “FACILITY: RMS32 
00 ABSTRACT: 
00 Routine to perform the SFILESCAN function to 
o8 scan a string in order to recognize a file specification. 
00 
4 ENVIRONMENT: 
o AUTHOR: Ron Schaefer, Creation Date: 13-Apr-1983 
3 Modified By: 
00 V03-005 JEJ0028 J E Johnson 11-Apr-1984 
38 Minor equate file cleanup. 
00 V03-004 RASO223 n Schaefer 16-Dec-1983 
BS Change SSCBDEF hon SCBSxxX to SFSCBDEF and FSCB$xxx. 
bp v03-003 eer0s79 Keith B. Thompson 5-Aug-1983 
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~-SBTTL DECLARATIONS 


: INCLUDE FILES: 


MACROS: 


SDSCDEF ; define descriptor field offsets and constants 
SF SCNDEF ; define item list fields and codes 

SFSCEC TF ; define RMS SCAN_STRING scratch block size 
$SSDEF ; Define system return codes 


! EQUATED SYMBOLS: 


+ OWN STORAGE: 


BO0 C8 SIN NNN NINO AA AAAAAOAO 
MH OVONAUES WN 0 OONAOULS WO 
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~SBTTL RMSSFILESCAN = SFILESCAN ROUTINE 


p++ 
; RMSSFILESCAN = Scan a string for a file specification 
This module performs the following functions: 
1. Checks for valid input string. 
- Calls RMSSCAN_STRING to parse the input string. 
. Checks for valid output descriptor List. 
4. Copies the information returned by RMSSCAN_STRING 
into the output descriptor List. 
CALLING SEQUENCE: 
Entered from EXEC as a result of user's calling SYSSFILESCAN 
INPUT PARAMETERS: 


STRDESC = Fixed-lLength type text string descriptor for the 
4 (AP) file specification string to be parsed. 


IMPLICIT INPUTS: 


None 
OUTPUT PARAMETERS: 
DESCLST = List of item descriptors for the information to be returned. 
8( AP) Each descriptor contains an ITEM_CODE field specifying 
a portion of the file specification string for which 
a@ LENGTH and ADDR are to be returned. 
FLDFLAGS = Longword to receive flags of which fields are present 
12 (AP) in the string (optional) 
R1 destroyed 
RO status code 
IMPLICIT OUTPUTS: 
None 
COMPLETION CODES: 
SS$_NORMAL 


SS$"ACCVIO 

55$~BADPARAM 
SIDE EFFECTS: 

None 
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SENTRY 


MOVL 
IF NORD 
rove 


B 
IFNOWRT 


CASE 


MOVL 
RET 


MOVL 


EQL 
IFNOWRT 


ASSUME 


ASSUME 


MOVZBL 

“MOVL 
RET 

: MOVL 
RET 


NULLITEM: 


CLRW 
CLRL 
ADDL2 
BRW 
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TRECTORY,~ 


TYPE. = 
VERS{ON> 
#SS$_BADPARAM,RO 
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FSCBSB_FLDFLAGS(R11), (R10) 


#SS$_NORMAL ,RO 


#SS$_ACCVIO,RO 


CN$_FILESPEC,- 
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3 e output dest iptor addr 

; f none, fry lags argument 

+ can we wr te they firs IE 
; get next item code 

; zero code means end of | 

3 check access to pr Rh 1 
b and code field of next item 


; F SENS: FILESPEC 


CNS_ 
CNS_N 


$"T YPE 
SCNS_ 2VERS ION 
; no such item 
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3 get flags longword addr 
; branch if not requested 
3 can we write it? 


$V_NODE 
~ =DEVICE 


UAESCNSV, DIRECTORY 


$y <TYPE 
SV-VERSION 


3; store flags 
success 


: return accvio 


set no length 

and no addr 

advance to next descriptor 
and continue 
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$$.PSECT_EP 
SSRMSTEST 
SSRMS_PBUGCHK 
SSRMS_ TBUGCHK 
SSRMS~UMODE 
ACCVIO 

DEVICE 
DIRECTORY 

DON 
DSCSA_POINTER 
DSC$K_S_BLN 
DSC$W-LENGTH 
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“VERSION 
“DEVICE 
CBSV-DIRECTORY 
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CNSV_VERSION 
FSCNSW_ITEM_CODE 
F SCNSW_LENGTH 
FSCNS_FILESPEC 


RMSSCAN_STRING 
RMSSF ILESCAN 
ROOT 


SS$_ACCVIO 
SS$_BADPARAM 
SS$_NORMAL 
SUCTESS 

TYPE 

VERSION 
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pom wae momen oona = + 


! Psect synopsis ! 


waa nae ae oeeaan wan + 


PSECT name Allocation PSECT No. Attributes 

- (ABS. 0000000 ( -) 00¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

RMSRMS QOOOOOF2 (¢ 242.) O1¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 

SABSS 00000000 < -») 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
pwr acme mr no aos comme neee $ 
! Performance indicators H 

Phase Page faults CPU Time Elapsed Time 

Initialization 30 00:00:00.0 00:00:01.05 

Sy pee, 1, $BRRREES BB:H8 08 

Symbol table sort 0 90:00:01..09 00:00: 948 

Pass 59 00:00:01.26 B8 + 80 2 Be 08 

Symbol table output 8 88 BD 06 ho 0:00:00.08 

Psect synopsis output 2 00:00:00.02 BS 180 288 =e 

Cross-reference output 0 00:00:00.00 B88: 95'5 

Assembler run totals 494 00:00:10.07 0:00:30.97 


The working set Limit was 1200 pages. 

36271 bytes (71 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 696 non-local and 2 local symbols. 
249 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

18 pages of virtual memory were used to define 17 macros. 
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Macro Library name Macros defined 
~$52zS0uAss: RMS ..OBJJRMS.MLB; 1 4 
_3255$DUA28: (SYS.OBJJLIB.MLB; 1 3 
$255$DUA28: CSYSLIBISTARLET.MLB;2 g 
TOTALS (all Libraries) 1 


794 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:RMSOF SCN/OBJ=OBJ$:RMSOFSCN MSRC$:RMSOF SCN/UPDATE=(ENHS$: RMSOF SCN) +EXECML$/LIB+LIB$:RMS/LIB 
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